home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / COSINE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  3.4 KB  |  55 lines
  1. 1000  '***********************************************************************
  2. 1010  '**            DOUBLE PRECISION COS(X) GENERATOR                      **
  3. 1020  '***********************************************************************
  4. 1030  '** GENERATES DOUBLE PRECISION VALUES FOR COS IN RADIANS              **
  5. 1040  '** FROM THE POWER FORMULA -                                          **
  6. 1050  '**                                                                   **
  7. 1060  '** COS X = 1 - (X**2/2!) + (X**4/4!) - (X**6/6!) + (X**8/8!) - ...   **
  8. 1070  '**                                                                   **
  9. 1080  '***********************************************************************
  10. 1090  '** TWO METHODS ARE GIVEN ....                                        **
  11. 1100  '** 1. BY USE OF THE                                                  **
  12. 1110  '**    DEF FNDC#(VARIABLE#) STATEMENT                                 **
  13. 1120  '**    THIS REQUIRES THE VALUE PASSED BE IN RADIANS IN THE RANGE      **
  14. 1130  '**    0 THRU PI/2  (0 THRU 90 DEGREES) PI = 3.14159265358979323846   **
  15. 1140  '**    COS 90 DEGREES EVALUATES OUT TO 6.321469455459696D-09          **
  16. 1150  '** 2. BY A SERIES OF EQUATIONS TO GENERATE A VERY ACCURATE           **
  17. 1160  '**    FORM OF THE EQUATION.                                          **
  18. 1170  '**    COS 90 DEGREES EVALUATES OUT TO 1.24705160315211D-16           **
  19. 1180  '**    COS 360 DEGREES EVALUATES OUT TO 1.00000133293157              **
  20. 1190  '**    STILL VERY ACURATE FOR MOST SITUATIONS                         **
  21. 1200  '***********************************************************************
  22. 1210  '
  23. 1220  '
  24. 1230  '***********************************************************************
  25. 1240  '**                         FORM #1                                   **
  26. 1250  '***********************************************************************
  27. 1260  '
  28. 1270  DEF FNDC#(X#) = 1 - X#*X#/2 + X#*X#*X#*X#/24 - X#*X#*X#*X#*X#*X#/720         + X#*X#*X#*X#*X#*X#*X#*X#/40320 - X#*X#*X#*X#*X#*X#*X#*X#*X#*X#/3.6288E+06       + X#*X#*X#*X#*X#*X#*X#*X#*X#*X#*X#*X#/4.79002E+08
  29. 1280  DEGREES# = 90
  30. 1290  VALUE# = 3.14159/180*DEGREES#
  31. 1300  A# = FNDC#(VALUE#)
  32. 1310  PRINT A#
  33. 1320  '
  34. 1330  '
  35. 1340  '***********************************************************************
  36. 1350  '**                         FORM #2                                   **
  37. 1360  '***********************************************************************
  38. 1370  '
  39. 1380  X# = 3.14159/180*DEGREES#
  40. 1390  A1# = 1
  41. 1400  A2# = A1#*X#*X#/2                         '1*2
  42. 1410  A3# = A2#*X#*X#/12                        '3*4
  43. 1420  A4# = A3#*X#*X#/30                        '5*6
  44. 1430  A5# = A4#*X#*X#/56                        '7*8
  45. 1440  A6# = A5#*X#*X#/90                        '9*10
  46. 1450  A7# = A6#*X#*X#/132                       '11*12
  47. 1460  A8# = A7#*X#*X#/182                       '13*14
  48. 1470  A9# = A8#*X#*X#/240                       '15*16
  49. 1480  A10# = A9#*X#*X#/306                      '17*18
  50. 1490  A11# = A10#*X#*X#/380                     '19*20
  51. 1500  A12# = A11#*X#*X#/462                     '21*22
  52. 1510  A13# = A12#*X#*X#/552                     '23*24
  53. 1520  A14# = A1#-A2#+A3#-A4#+A5#-A6#+A7#-A8#+A9#-A10#+A11#-A12#+A13#
  54. 1530  PRINT A14#
  55.